home *** CD-ROM | disk | FTP | other *** search
- --= SID = SIMTEL20 Ada Software Repository Item Description File = SID =--
- -- UNIT NAME : CAS Ada Statement Counter
- -- VERSION : 1.0
- -- REVIEW CODE :
- -- DDN ADDRESS :
- -- AUTHOR : WIS JPMO
- -- : Washington, D.C. 20330
- -- : Contact: Lt. Colonel Falgiano
- -- : ESD/SCW
- -- : Hanscom AFB, MA 01731
- -- COPYRIGHT :
- -- DATE CREATED : 1985
- -- DATE RELEASED : 1985
- -- DATE LAST UPDATED : 1985
- -- LOCATION : C2MUG
- -- LOCATION : ASR
- -- ENVIRONMENT :
- --= CLASSIFICATION ===============================================--
- -- CATEGORY LEVEL 1 : COMPONENTS
- -- CATEGORY LEVEL 2 : COUNT Ada STATEMENTS
- -- CATEGORY LEVEL 3 : Count of Ada Statements 1
- -- CATEGORY LEVEL 4 :
- -- KEYWORD :
- -- INDEX : Count Ada Statements
- -- INDEX : Statements
- -- INDEX : Statements, Ada
- -- TAXONOMY :
- -- DEPENDENCIES :
- -- SEE ALSO : PD:<ADA.COMPONENTS>CAS2
- -- SEE ALSO : PD:<ADA.COMPONENTS>CAS3
- -- SEE ALSO : WIS_TOOL_32
- --= FILE LISTING ===============================================--
- -- FILE SPECS : PD:<ADA.COMPONENTS>COUNTADA.*
- -- DIRECTORY DISPLAY :
- -- Directory PD:<ADA.COMPONENTS>
- -- File Name Byte Count Line Count
- -- --------------- ---------- ----------
- -- COUNTADA.CMM 1217 33
- -- COUNTADA.PRO 4139 84
- -- COUNTADA.SRC 4587 135
- -- =============== ========== ==========
- -- 3 Files 9943 252
- --= ABSTRACT ===============================================--
- -- This function calculates the "statements" of a valid Ada
- -- fragment specified by a FILE_NAME string parameter. It need not be a
- -- complete compilation unit but it should have closed all open
- -- parentheses and and string brackets. The number of statements of code
- -- is returned as an integer. The Ada statement is defined by a
- -- semicolon terminator outside of comments, parentheses, or string or
- -- character literals. The definition is insensitive to formatting or
- -- layout of the source. This copy of the function is embedded in a test
- -- and driver program. The driver has a feature of correcting for the
- -- common error of leaving out the extensiOn on a file name. The nature
- -- of this extension is system dependent and a ".TXT" extension is used.
- --= REVISION HISTORY ===============================================--
- --
- -- DATE VERSION AUTHOR HISTORY
- -- 1985 1.0 WIS JPMO Initial Release
- --= RELEASE NOTICE ===============================================--
- -- This prologue must be included in all copies of this software.
- --
- -- This software is copyright by the author.
- --
- -- This software is released to the Ada community.
- -- This software is released to the Public Domain (note:
- -- software released to the Public Domain is not subject
- -- to copyright protection).
- -- Restrictions on use or distribution: NONE
- --= DISCLAIMER ===============================================--
- -- This software and its documentation are provided "AS IS" and
- -- without any expressed or implied warranties whatsoever. No warranties
- -- as to performance, merchantability, or fitness for a particular
- -- purpose exist.
- -- The user is advised to test the software thoroughly before
- -- relying on it. The user must assume the entire risk and liability of
- -- using this software. In no event shall any person or organization of
- -- people be held responsible for any direct, indirect, consequential or
- -- inconsequential damages or lost profits.
- --======================================================================--
-